unit uSampleConditionForm;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, RzButton, ActnList, ImgList;

type
    TFrmSampleCondition = class( TForm )
        RzBitBtn1: TRzBitBtn;
        RzBitBtn2: TRzBitBtn;
        ActionList1: TActionList;
        Action1: TAction;
        ImageList1: TImageList;
        procedure Action1Execute( Sender: TObject );
    end;

var
    FrmSampleCondition   : TFrmSampleCondition;

implementation

{$R *.dfm}

procedure TFrmSampleCondition.Action1Execute( Sender: TObject );
begin
    RzBitBtn1.Click;
end;

end.

